Google
 
Trailing-Edge - PDP-10 Archives - 6.1_emacs_manuals_1er - emacs/tmacs.:ej
There are no other files named tmacs.:ej in the archive.
pW[0 +8+fq(+4)[1
0fo10f"g+q1'
+fq()+4u1
fq1"l 0'
,q1:m(q1+4(]1]0))y<83C((L7@W"{f/Kx/	 5BO,.d/`41Q@H)KQyY+(h#on@

w2a~7EP

<d30F#'+.g1-J9wE.,NWWdClcx +0'@[Aj,60/D0Q;^o$fh9oZ`|g8
X0`<1_NEVNfC^lMq]fvM2c)FzZu%I>0\/AY

KjmVeagakNutiO|D	
b	ZE	^d	)\_	3Q*	C\{	NIZ	[UX	jm	uKJ
V0
ap
"k)
3l6
DFz
Qb
ca]
sR>Cpr&5DefaulteVariable&SGeto9-BitkCharacter=Name$&InsertRPrefixed VariableBNames"&KilllPrefixedaVariableGNamesufferList unused ^R characters
SRMailTypeRMailingnListUncontrolifyUnlock^Fileak Line^R Buffer Graph^R Change Case Letter^R Comma-Arg^R Draw Vertical Line^R Get Macro Name^R Lowercase Last Word^R Really Underline Word^R Remove Word Underline^R Select Buffer^R Uppercase Last Initial^R Uppercase Last Word^^ TMACS Error Handler~DIRECTORY~~DOC~ # RMAIL R~DOC~ & Buffer Dashes~DOC~ & Default Variable$~DOC~ & Get 9-Bit Character Name*~DOC~ & Insert Prefixed Variable Names(~DOC~ & Kill Prefixed Variable Names~DOC~ & Set ..D~DOC~ & SetUp TMACS Library&~DOC~ & Temporarily <BS> No Break~DOC~ 0~DOC~ =Abbrev~DOC~ Abort Recursive Edit~DOC~ Buffer Menu~DOC~ Flush Variables~DOC~ Graph Buffer#~DOC~ List unused ^R characters~DOC~ Lock File~DOC~ Nowhere Links~DOC~ Revert File~DOC~ Save Trees~DOC~ Send Mail~DOC~ SRMail~DOC~ Type Mailing List~DOC~ Uncontrolify~DOC~ Unlock File~DOC~ UnSAILify~DOC~ ^R Argument~DOC~ ^R Auto Fill Comments~DOC~ ^R Break Line~DOC~ ^R Buffer Graph~DOC~ ^R Change Case Letter~DOC~ ^R Comma-Arg~DOC~ ^R Draw Vertical Line~DOC~ ^R Get Macro Name ~DOC~ ^R Lowercase Last Word"~DOC~ ^R Really Underline Word"~DOC~ ^R Remove Word Underline~DOC~ ^R Select Buffer#~DOC~ ^R Uppercase Last Initial ~DOC~ ^R Uppercase Last Word ~DOC~ ^^ TMACS Error Handler~DOC~ ~FILENAME~~DOC~ ~TMACS Loaded~~FILENAME~

~INVERT~~TMACS Loaded~	TMACSP	:i* [.1
[f[.2[.3[.4[.5 [..o
 m.m& Maybe Flush Outputuf
0fo..qTML Levelu.5
q.5+1-(ff&1"E 3 '"#  ')"G '
mF 
q.5"E
m.m Kill Variable
qBuffer Name
[Previous Buffer
FN 1:< mKTML So far >w
1:< mKTML NAMES >w
1:< mKTML Level >w
qBm(m.mSelect Buffer)

f[DFile
q.1u.2
< @f.2f(:;)+1,fq.2:g.2u.2 >
0,fq.1-fq.2-1:g.1u.1
fq.1"E q.2u.1
fsMachine :f6u.2'
q.2:fcu.2
m(m.m Select Buffer)NAMES@.2
z"E	@ftReading .2:.MAIL.;NAMES 
-1,1m(m.mVisit File).2:.MAIL.;NAMES >
'
q..o m.vTML NAMESw
fsBCons m.vTML So farw
%.5 m.vTML Levelw
'
"# %.5 uTML Levelw'
q..o[.7
.[.6
qTML So faru..o
bj :s
.1
   "L oEXIT'
i
.1

qTML NAMESu..o
bj <:s
(.1"E oEXIT'
0af
	 ([;>
-ful
flu.4w
.,q.4x.2
ft.2

.,q.4:fb(EQV-LIST"E oEXIT'
fkc flu.4w
@ fwl
< .-q.4;
mf1;
@:fll
0,1a-("E @:fwl
@fwx.3
fm(m.m Type Mailing List).3w
ful !<!>'
0,1a-;"E l !<!>'
0,1a-)"E q.4j !<!>'
@fwx.3 @fwl
fm(m.m Type Mailing List).3w
>
!EXIT!

 q.5-1u.5
q.5uTML Level
 q.5"E
qTML So far fsBKill
mkTML So far
mkTML NAMES
mkTML Level
ff&2"e fsListen"e ftDone.
     '
"# ftFlushed.
      '''
"#
q.7u..o
q.6j'
w 1 <[0[1[2[3[4[5[6[7[8
fsQPPtru8
fsBCons[..o
i     # Buffer    (Mode)         Filename

   2u7
0u4 fq.b/5u5
< q4-q5;
q:.b(q4+4)[..o
0u1
fsReadOnly"n q11u1'
fsModified"n q12u1'
fsXModified"n q14u1'
fsZu3
]..o
.u0 4,32i
q1&2"n .-3f*'
q1&1"n .-3f$'
q1&4"n .-2f-'
2,q:.b(q4+7)\
i  g:.b(q4+1)
17-(.-q0):f"gw 1',32i
q:.b(q4+3)u1
qBuffer Index-q4"e
qModeu1 q0u6
.( q0+3j 2a-32"ec' f. )j '
i(1)
32-(.-q0):f"gw 1',32i
q:.b(q4+2)u1 q1"n g1'
"# q3\ i  Characters'
i
     %7w
q:.b(q4)+q4u4
>
    q6"n q6j'
fsLinesu6 q6"e fsHeight-(fsEchoLines)-1u6'
q7+1-q6"l q7+1f[Lines'
0f[Window
0fs^RInitf[^RNormal
33.fs^Rinit[ w
:i*Buffer Menu[..j
0[..F
@:i*| m(m.mDescribe)^R Select Buffer |f[HelpMac
@:i*| 0l @f DS*-$.l \[1 q1"e 0l fg 1'
q1m(m.m& Find Buffer)u1
q:.b(q1+4)[..o 0fsModifiedw 0fsXModifiedw ]..o
	  0l .+1f   .+1,.+3 |[~
@:i*| 0l 0,1a-32"n fg 1'
fD 1 |[D qD[.D
@:i*| 0l 0,1a-32"n fg 1'
fS 1 |[S
@:i*| 0l 0,1a-D"n 0,1a-S"n fg 1''
f  1 |[U
!BACK! 
0l 0,1a-D"e fg oBACK'
@f S*-$.l \u1
q..ou2 q8fsQPUnwind
q2[..o jl
<	:s
 ;
0a-D"e @f *-$.l \u3 q3"n
q3-q:.b(qBuffer Index+7)"e
q1"n ]..o q1m(m.mSelect Buffer)w q2[..o''
q3m(m.mKill Buffer)' !<!>'
	0a-S"e @f *-$.l \u3 q3"n
]..o q3m(m.mSelect Buffer)
		m(m.m^R Save File)w q2[..o' !<!>'
	>
    ]..o
q1"n q1-q:.b(qBuffer Index+7)"n
q1m(m.mSelect Buffer)''
q2fsBKill @m(m.m^R Buffer Graph)w 5[.0[.1[.2[.3[.4
 :f
.u.3 fnq.3j
fsWindow+bj
fsLines f"E fsHeight-(fsEchoLines+1)' u.0
1:< q.0-1,0 :fm :l >
.u.4
:i*CfsEchoDisplay
fsZ"E
@ft|mere corroborative padding intended to give artistic verisimilitude
 to an otherwise bald and unconvincing buffer|
    1 @v 0f[HelpMacro
:fi-4110."E fiw :i*CfsEchoDisplay
		     @ft(Semi-quote from "The Mikado", by Wm. Gilbert)

		     0fsEchoActivew
		     :ft !''!'
    w 1 '

 m.m& Buffer Dashes
:i.0-
0u.1
-1u.2
@ft|
fsVB mD @ftB
fsWindow+b mD @ft[
q.4 mD @ft]
fsZ-(fsVZ) mD @ftZ
fsZ mD @ft|

0u.1
0u.0
9< fsWidth-3*%.0/10-q.1f(+q.1+1u.1)< @ft  > q.0@:= >
0fsEchoActivew
 1z[.2[.1 ff"G fs^Rarg'"# 0'+(fs^Rexpt"E fs^Rhpos')+8:i.1
 :i*TfsMPDisplay
fsTop< :i*DfsMPDisplay >
 fsLinesf"E wfsHeight-(fsEchoLines)-1'(
    )< :i*H.1|HDfsMPDisplay >
  .1-8:\u.2 :i*H.1.2fsMPDisplay
 @ft  1`ff"G -1"L
m(m.m Kill Variable )MM  = w ''
[1[2[3
 1,fMM-abbrev: (
8,fFull M-X name: u2
)u1
1,m.m~DOC~ 2f"ew
:i*C Abbrev for 2.'u3
:i*!1 = 2:! !3!
 f:m(m.m 2)  m.vMM 1 = 2w
OqMail Sender Libraryf"n[Mail Reader Library'w
 1,(F):m(m.mRead Mail)[1[2[3[4[5[6
 qComment Startu1
qComment Endu2
fq2"e 0u2'
qComment Beginu3
fq3:"g q1u3'
fq1-1:g1u5
qFill Extra Space Listu6
0l :fb1"e fg 1'
<  q2"e :l'"# :fb2'
.u4
l @f	 l
fq1f~1:@;
q4,.k
q2"n -fq2d'
fq3f~3"e fq3d'"# fq1d'
@f5k
-@f	 l @f	 k
0af6:"l 32i' 32i
>
q4j 0l
.,(
m.m^R Auto-Fill Spaceu1
:l 0f/2< .-(0m1f
).@; >
:l). 9:? fsErrorf"n@:fg
0"n
fsError-(@feURK)"e
ft executing Make Space...
mMM Make Space'
'
'
 "#w 0fo..q Debug"e
fsError fsErrThrow''
:fi- "e oSP'
fsError-(@feQRP)"e
:ftUnwinding partially to make room for error handler
-9-9-6fsQPUnwindw'
8f[I.Base
f[SString
@:i*| m(m.mDescribe)^^ TMACS Error Handler |f[HelpMacro
qTMACS Error Dispatch"n
< @:fi@:fc-B"e fiw @v !<!>'
@:fi@:fc-D"e fiw 1:<mDirectory Lister>w !<!>'
@:fi@:fc-W"e fiw
0[1 1:< -1fsBackStringm(m.m& Macro Name)u1 >w
q1fp"l :i1unknown function'
@ft(Error in 1) 0fsEchoActivew !<!>'
1; >'
@:fi-32"e !SP! fiw 0fsErrFlgw 0u..h fsErrThrow'
@:fi-?"e fiw
fsVerbose"e
1f[Verbose fsErrorfg f]Verbose'
f[Error
2m(m.mBacktrace)+0"n f)'
f]Error'
"# fsEchoErr"e
@:fi- "e fiw 0fsErrFlg'''
fsErrThrow`[1
 "g
.,( :< 1af"a#40.:i1
f1'w
c >w ).'
.,( -:< r 1af"a#40.:i1
f1'w
>w ).H-1[1 128*5,40.:i..d
128<%1*5:f..dA>
i -fk<0a*5:f..d  -d>
[0 [.1
 .:w
ff"e
 m(m.m& Read Q-reg Name)u0'
"# @fiu0
.,( g(q0 fs^RIndirect fs^Rcmacro m(m.m& Macro Name))
	).'
q0 fp"l f[:EJPage m(m.mLoad Library)BAREw'
q0m(m.m& Macro Name)f"nu0
.,(g0).'
q0 fp+1"G
f[BBind
g0
j @ f
   r
0,1a-!"N
:i*Not a valid macrofsErr'
.+1,( :s:!"e :i*Not a valid macrofsErr'
2r).x0
f]BBind
.,(g0). '
f[BBind
g0 j
0,1a-"E
z-2"N :i*Bad ^^-type q-reg namefsErr'
2a#100.u.1'
"#
:s"E
f]BBind .,(g0). '
bj 0u.1
3< 0,1a-."E
d q.1+200.u.1'
>
0,1a-"N
:i*Bad q-reg namefsErr'
z-2"N :i*Bad q-reg namefsErr'
2a+q.1u.1'
f]BBind
q.1 m(m.m& Get 9-Bit Character Name) h&200."NiControl-'
&400."NiMeta-'
[0&177.U0
Q0-127"EiRubout'
Q0-27"EiAltmode'
-2"N
Q0-8"EiBackspace'
Q0-9"EiTab'
Q0-10"EiLinefeed'
Q0-13"EiReturn'
Q0-32"EiSpace''
-2"EQ0-32"Li^Q0+100.U0'''
i0?f[DFile [1[2
qBuffer Filenamesu1
 q1"e :i*No file in bufferfsErr'
 q1fsDFilew
 f[BBind
1:< er*LOCKED* >"e
    @y :x2 f]BBind
    :i*1 is locked by 2. fsErr'
 ec fsXUnamef6 ei hp ef f]BBind
 :i*CfsEchoDis @ftOk, you have 1 locked. 
 0fsEchoActivew
q1fsDFilew
e[ er fsIFCdate( e]
)-q:.b(qBuffer Index+8)"e '
fsModified"n !"!
    ftWhile you've been editing this file, somebody has written a
new copy out!  You will lose some work if you are not careful.
I suggest that you file this out under a different name and
then SRCCOM the two files.
 '
 !"!
 ftSince you last read or wrote this file, somebody else
wrote a new version on disk.  Luckily, you haven't edited
the buffer since then.  Do you want the new version
 m(m.m& Yes or No)"l m(m.mRevert File)'
 0u..h 3f[DFile [1[2
qBuffer Filenamesu1
 q1"e :i*No file in bufferfsErr'
 q1fsDFilew
 1:< er*LOCKED* >"n
:i*1 is not locked. fsErr'
f[BBind
@y :x2 f]BBind
f~(fsXUname:f6)2"n
:i*2 has 1 locked -- not you. fsErr'
ed
:i*CfsEchoDis @ftOk, 1 is unlocked. 
 0fsEchoActivew G-1[p
-1[m
:+1"G :-(fsZ)-1"L
q.3-q.2"G q.3--1"L q.3up''
:-q.2"G :--1"L :um''''
qp,qmfumup
qp+1"G fsWidth-8*qp/fsZ-q.1f(<@ft.0>
)+q.1u.1
.0-="E :i.0-'"# :i.0='
'
qm+1"G fsWidth-8*qm/fsZ-q.1f(<@ft.0>
)+q.1u.1
.0-="E :i.0-'"# :i.0='
'
fsWidth-8*/fsZ-q.1f(<@ft.0>
)+q.1u.1
u.2
::i* [.1
f[BBind
q..o m(m.m List Variables)
bj m(m.m Keep Lines).1
1f<!DONE!
  f<!KILL!
    :ftKilling Following Variables:
   ht
    ft
Ok? (Y, N, ^R) 
    fi :fc [.2
1< q.2 fYN"L ftAnswer must be Y, N, or ^R.
		      1;'
q.2-Y"E f;KILL'
q.2-N"E f;DONE'
q.2-"E
0u..h  1;'
>
>
bj
m.m Kill Variable
< 1:< 0,25fm
-:fwl
< 0x.2
1:<fo..q.2w>-(@feAVN)@:;
fwl >
mK.2
>
l .-z; >
>
0u..h D[1[2[3[4[5
 m.m& Charprint
 0u1 32< q1fs^RCMacro-(0fs^RInit)"e
	2,q1mP ft	is not defined
'	%1 >
 A+400.u1
 26< q1-(0fs^RInit)"e
	q1mP ft	is not defined
'   %1 >
 A+600.u1
 26< q1-(0fs^RInit)"e
	q1mP ft	is not defined
'
     q1-(Afs^RInit)"e
	q1mP ft	self-inserts
'   %1 >
 ff"e '
 qPrefix Char Listu4 0u5
 < q5-fq4;
   q5:g4*200.+(q5+1:g4)u3
   q5+2,q5+6:g4u2 q2u2
   0u1 32< q:2(q1)"e
	2,q3mP ft  2,q1mP ft	is not defined
'	%1 >
   Au1 26< q:2(q1)"e
	2,q3mP ft  2,q1mP ft	is not defined
'	%1 >
   q5+6u5
   >
 CfsQPPtr[9
[0[1
q..0&127:i0
< 1,m.i
:fif0123456789-,:;
fiu1 :i001 >
@fiu..0
1fs^RArgpw  -1u1
fq0< %1:g0"d 3fs^RArgpw 1;' >
0(q9fsQPUnwind)@:m(q..0fs^RIndirectfs^RCMacro)q.[0
0l .[1
1[Auto Fill Mode
m.m^R Auto-Fill Space
:l <.-(0msf).@;>
q0:j"e :l'
fsRGETTY"e 0t'
1i[1
 j 0s_
<:s;0a#107.u1.-1f1>
ff&1"e j '
j 0s
<:s;-d>
j 0s~
<:s;.-1f}>
j _[1[2
q..q[..o
:i1
:fo..q1*5,(
fq1-1:g1+1u2
fq1-1:f12
:fo..q1*5)k
):i*[.1
:fo..q.1,0f[.2
[.3[.4

 < fq..q/5-1-q.2"L 1;'
q:..q(q.2)u.3
f~(0,fq.1:g.3).1"G 1;'
f~(0,fq.1:g.3).1"E
g.3
i
    '
q.2+q:..q(0)u.2 >
-fwf(@fc) -fwf(fc) ..( -@m(m.m^R Uppercase Initial)f
)j 1[1[2[3[T
:i3
128*5fsBConsuT
@fn|qTfsBKill|
-1u1
:i2-D94IQ..0#64I
32< q2u:T(%1) >
95< 201004020100.u:T(%1) >
q2u:T(%1)
@:i:T(9)|-D8-(FSSHPOS&7),32I|
@:i:T(13)|0,1A-10"EC'-DI^M|
@:i:T(27)|-D36I|
-1u1
fq3< 201004020100.u:T(%1:g3) >
ff"e h'"# f':fT
 -fsBackStr-(m.m& Toplevel ^R)"e
      :i*Already at top levelfsErr'
    0fo..qLess Asking"e
      qAbort Resumption Message[0
      q0"e @ftAbort this recursive edit
          1m(m.m& Yes or No)"e 0''
      q0"n @ft
0''
    1f[NoQuit
    -1fsQuit
    fs^RExit[mMM & Check Top Levelfiles
    QBuffer Filenames[0
    .[1
    QBuffer Index[2 [3

    FF&1"E
Q:.B(Q2+10)U3 FQ3"G
QAuto Save Count"N
	  Q3U0'''
    q0"e :i*No file to revert from fsErr'

    "E
0fo..qLess Asking"e
        @ftRestore file from disk
        1m(m.m& Yes or No)"e 0'''

    B[B 0,fsZfsBound
    ER0
    qBuffer Index[2
    fsIFCDateu:.B(Q2+8)
    fsIFVersu:.B(Q2+9)
    @Y  0fsModifw 0fsXModif
    fsWindow+QB:J"L 0L .fsWindow'
    Q1:J
    fs^RMDlyfs^RMCnt
    m(m.m& Process File Options)
0fo..qVisit File HookU1
Q1"N M1' 	TMACSZ0fo..qTMACS Loaded-10911389174"n
0m.CMail Reader Library* If non0, is name of library to use for reading mail
0m.CMail Sender Library* If non0, is name of library to use for sending mail
0m.CTMACS Error Dispatch* Non-0 enables several characters for TMACS error handler
0m.CLess Asking* Non-0 prevents Abort and Revert from asking
0m.CSRMail No New Mail Query Exit* 0 SRMail always reads mail.  1 Ask if no new mail.
1m.CCanonicalize Underlines* Non-0 means Multically canonicalize underlining
10911389174m.vTMACS Loaded'
1,m.m& SetUp Compressed TMACS Librariesf"n[1 m1'w
 
f:m.c][1[2[3[l 0u3
    ff"n fulw'"# 60ul'
j <	.-z; 0u1
	<   :s


u2 %2;w %1w >
    q2"e r' q1+q3-ql-3"l
	q1+q3+4u3 q3-((q3/ql)*ql)u3 .u1 -1:s

"n d i



	q1+7j' '"# q1-((q1/ql)*ql)u3'
    q2"e c'
    > j a[0[1[2[3 [Previous Buffer [.1 [..j
q..o[5
:i* fo..qBuffer Nameu.1
^fn|q.1m(m.m Select Buffer)w 0u..h|

 :i0 q0u1 q0u2 q0u3
"e 17.m(m.m& RMAIL Parse Header)'
qEditor Nameu..j :i..j..j 
m(m.m Select Buffer)*REPLY*
m(m.m Text Mode)
m(m.m Make Local Variable)Auto Fill Mode
 m(m.m Auto Fill Mode)

 -1"e oContinue'
-2"e hk iTo: 
--Text follows this line--
 b+4j oContinue'
hk i13
 j < :sT; To: ^f	 k i  >
 j < :sC; cc: ^f	 k i  >
 j fq0"g iTo: g0
-2f=
"n i
'  b+3j ^f	 k i '
 j <:s at ; @>
j <:s @ ; @>
fq0"g j 3c :x0
:s0"l r fk+2d''
j <:sINFO-; fkaf:, +1"g
       fkd .,(s,
		 fkc .)k'>
zj fq2"g iSubject:2
'
 i--Text follows this line--


!Continue!
0f[noquit
 m.m^R RMAIL Yanku2
FS ^R INIT-Q.Y"E
Q2[.Y'
600.+@ FS ^R INIT-Q...Y"E
Q2[...Y'
 201.@ FS ^R INIT-Q...Y"E
Q2[...Y'
 3FS ^R INIT # Q.C"E
33.FS ^R INIT [.C'
0fo..qRMAIL Reply Hookf"n u2 m2'
!Re edit!
 0u..h

 q..0&337.-307."e w '
 z"e 0fsmodifiedw '
1:< m(m.m& Mail Buffer)>f"e
0fsmodifiedw '
^:fg oRe editP:i*[1[2 q..o[0
f[DFile
0fo..qMail Reader Libraryu2
fsOSTeco"n :i*SRMail only works on ITSfserr'
q2fp:"l f~2RMAIL"n :i*SRMail only works for RMAILfserr''
fq1"E
etDSK: fsHSNamefsDSNamew
fsXUNamefsDFN1w et MAIL
f[BBindw [..o
0u2
1:< er @y >"n oREAD'
.f[VBw z-.f[VZw
et RMAIL
1:<m(m.mInsert File)>"E
10f~*APPEND*
	    "n hk''
zj f]vz f]vb
.(zj -^f
	 k)j
f+
fsQPPtr(
[0[1[2[3[4[5[6[7[8[9
[.0[.1[.2[.3[.4[.5[.6[.7[.8[.9
9999m(m.mRun Library)RMAIL# RMAIL Bw
)fsQPUnwindw
:i2RMAIL summary of new mail.  Type space to see 1st message.

!READ!
:i*CfsEchoDisplayw
q2"n
@ft2
0fsEchoActivew'
"#
@ftNo new mail to summarize.
0fo..qSRMAIL No New Mail Query Exit"n
@ft  Run RMAIL
1m(m.m& Yes Or No)"e ''
"# @ft  Running RMAIL.''
'
q0u..o
m(m.mRun Library)RMAIL1
[1[2 f[dfile
 f[bbind ezdsk: j 2k
 < .-z;
   3a-L"n k !<!>'
   6c 6x1 f61 fsdfn1
   7c 6x1 f61 fsdfn2
   e?"e 0kk !<!>'
   l >
  m(m.m& Temporarily _<BS> No Break)
 [1 qCanonicalize Underlines[2
f"L W-':<
"L -fwl'
2:fwl -fwl
< 0,1a"b 1;'
!Remove!
1a-_"e 0,2a-8"e 2d oRemove''
1a-8"e 0,2a-_"e 2d oRemove''
q2"n
1a-_"g i_ 8i c '
"# c 8i i_ ''
"# i_ 8i c'
.-z; >
-fwf
"l -fwl'
>
1Km(m.m& Temporarily _<BS> No Break)
 f"L w-':<
"L -fwl'
:fwl
-@f_l
< 0,1a-_"e 0,2a-8"e 2d oloop ''
0,1a-8"e 0,2a-_"e 2d oloop ''
0,1a-"b 1;'
c !loop! .-z; >
-fwf
"l -fwl'
>
1x8*5,(8*5+5):g..d[1
_*5,(_*5+5):g..d[2
fn 8*5:f..d1
_*5:f..d2
8*5:f..dAA   
_*5:f..dAA   
:J[.1
:i*NULL[.2
q.2fs^RArgw
 @m(m.m^R Autoargument)w
fs^RArg-q.2"E 0fs^RArgpw'
1,m.i
 @fiu..0
q..0fs^RIndirect fs^RCMacro[.3
-1fsReReadw -1fs^RLastw
,(fs^RArgp"n fs^RArg') m.3 *Random collection of useful functions.jC Prints an entry in ITS mailing list file.
This works on any ITS machine.  (.MAIL.;NAMES > has the ITS mailing
    lists.)
For instance, M-X Type Mailing Listbug-random-program<cr> will show
    you who is on the bug-random-program mailing list on your machine.
If string argument is of form <name>@<site>, <site>:.MAIL.;NAMES is
    used.  Only final @ indicates site, so you can do something like:
    M-X Type Mailing List$BUG-@@AI$
A numeric argument limits depth of recursion on EQV-LIST members.
    (Default depth is 3.)
<name>@<site> entries in EQV-LIST are not followed.
Prints "Done." when done, since it sometimes is slow.  Giving a
    pre-comma numeric argument inhibits done-printing, for use as a
    subroutine.^R Display information about all buffers.
A recursive edit level is entered on a list of all buffers.
On exit the buffer on the current line is selected.
Point is initially on line of current buffer and space will exit (like
    ^R Exit), so this is very much like List Buffers but
    combines listing with selecting in a way that does not involve
    much typing or redisplay.  * means modified, - means modified and not
    auto-saved, . means current buffer, and $ means readonly.
D will mark buffer for deletion on exit,
S will mark buffer for saving on exit,
U will unmark buffer, and
~ will clear modified flags of buffer.7C Call ^R Buffer Graph to show schematic of buffer.`^R Show a scale schematic of buffer in echo area.
(You can also use M-X Graph Buffer<cr>.)
Draws something like the following in the echo area:
|----B-----==[==--]---Z------------------------------------------|
     1      2     3      4      5     6      7      8     9
The |--...--| indicates the whole buffer, numbers approx tenths.
=== indicates the region.
B indicates the virtual buffer beginning.
Z indicates the virtual buffer end.
[---] indicates the window.Q^R Draws from current hpos, not inserting.
Line drawn only in current window, and column printed at base of line.
This only works on ITS machines.
If any ARG given, is displacement from current hpos.  E.g. -1 means
    draw line through position one column left.
If C-U is specified, together with an ARG then ARG is an absolute
    column.  E.g. M-3 C-U as argument makes line in column 3.  But
    M-3 as argument makes line in column 3+current_column.C Define or delete M-X abbreviations.
M-X =Abbrev$IF$Insert File$ will define M-X IF = Insert File$
    to be M-X Insert File$, evaluated by name each time
    M-X IF$ is used.  Thus if a new Insert File is created or loaded,
    that one will be used.  This works nicely with command-completion.
C-U 0 M-X =Abbrev$IF$ and
C-U - M-X =Abbrev$IF$ will remove definition for M-X IF$.jC Mail a message, using your favorite mail-sending program.
*** This function is obsolete -- the new EMACS has the capability this
    one provided.  This remains here only until old EMACSes are gone.
If you abort the message, you can resume by giving this command a
    nonzero argument.
The variable Mail Sender Library, if non-0, should be set to the mail
    sending library name.  The mail sender used by default is RMAIL on
    ITS, and MM on Twenex.
Note that this TMACS version is a replacement for the EMACS one --
    this allows you to use different libraries for reading and sending
    mail.(^R Refill the comment and its continuations.
To handle comment starts (or parts of them) that are repeated, e.g.
";;; " in Lisp, or perhaps "/*** " in Pl1, it will treat a duplicated
last character of the comment start or begin as part of the comment
beginning when merging comment lines.4S Q..P: handles TECO errors.
If first character typed is "?" then Backtrace is called.
A space makes us exit, with no action.
If option variable TMACS Error Dispatch is non-0, some other
    characters may be typed, in any order, ending with a space (no
    further action) or "?" (enter Backtrace):
	B	Display the offending buffer.
	D	Directory Lister is run.
	W	Who caused this? -- type function's name.
Typing HELP character describes the error handler.
Quits are not handled at all unless the variable Debug is nonzero.
    That is so a quit will cause the buffer and modeline to be
    restored and redisplayed immediately.
A QRP error (q-register PDL overflow) will cause automatic partial
    unwinding of the q-register PDL if you type anything but Space.
    You can thus enter Backtrace etc.r^R Next <argument> letters, moving past.
Numeric argument negative means move left.
Fast, does not move gap.=S Create a new ..D with chars in arg as break characters.^R Inserts macro name for char typed.
MARK is set before inserted name.
Handles bit and char prefixes, e.g. Meta-, ^X, unless:
Given a numeric argument, gets the name of a prefixer (e.g. metizer).
Impure-strings that are uncompressed macros are handled if their names
    are present at the beginning of the macro.
Some characters run standard builtin functions whose names are found
    in the BARE library.  These work fine.  Others which are not found
    just insert their key names, e.g. Meta-O.9S Inserts pretty name for 9-bit ARG.
Example:  415. MM & Get 9-Bit$ inserts "Meta-CR".
An arg of "2," means say "^M" instead of "CR", etc, and ^B instead of
    an alpha on TV's.qC Lock current buffer's file.
"Lock" the file in the current buffer by creating FN1 *LOCKED*.
Will complain if FN1 *LOCKED* already exists, and will tell who has it
    locked (since FN1 *LOCKED* contains that person's xuname).
Fails the critical-race test.
This assumes that others will cooperate and use M-X Lock File$ and the
    matching M-X Unlock File$.6C "Unlock" file in buffer locked by M-X Lock File.*I Internal routine of ^R Buffer Graph.uC Kill some variables specified by search string.
Kill variables whose name contains the string argument.
String argument actually is a TECO search string, and so you can flush
    variables containing "foo" OR "bar" by using the string argument
    "foobar".
The list to be flushed is typed, asking Y, N, or ^R?
    N means abort, ^R allows editing of the list.`C Unused C-, M-, and C-M- characters.
If numeric argument then list unused prefix commands.7^R Put on digits, minus, and comma to get argumentsW^R Fill if too long, even out of Auto Fill mode.
Cursor may be anywhere within line.
Line will be broken (space inserted at margin) repeatedly until it
    fits within the margins.
Uses ^R Auto-Fill Space.{C Does nothing, returns nothing...
...but is good for something:
If you want to give some Teco commands from the bottom of the screen,
you can call ^R Extended Command (or any such "Meta-X") and give the
Teco commands as the "string argument".UC Turn SAIL file into readable form.
M-X UnSAILify interchanges underscore and backarrow; this is good for
    mail.
1 M-X UnSAILify goes further and fixes lossage caused by image FTPing
    a SAIL file.\S Kill variables if names STRARG-prefixed.
STRINGARG is prefix for variable name.  E.g. doing:

             m(m.m& Kill Prefixed Variable Names)Cache 

will kill all variables whose names start with "Cache ".AS Insert some variable names.
String argument is prefix for variable name.  One variable name to a
    line.
E.g. m(m.m& Insert Prefixed Variable Names)MM  will insert the names
    of all variables whose names start with "MM ".
Also see & Kill Prefixed Variable Names, and & List Prefixed Variable
    Names.&^R Uppercase word(s) before point.&^R Lowercase word(s) before point.'^R Capitalize word(s) before point.&C Turn control chars into uparrowed chars.
This is good for listing a file with control characters in it on a
    line printer which would not show control characters well.
String argument is a string of characters NOT to change.
TABs are turned into spaces.  CRLF pairs are left alone.6C Abnormal exit from recursive editing command.
The recursive edit is exited and the command that invoked it is
    aborted.
For a normal exit, you should use ^R Exit, NOT this command.
The command can put a string in Abort Resumption Message
to tell the user how to resume the command after aborting it.
If the option variable Less Asking is non-0, no message will be
    printed, and you will not be asked for confirmation.QC Undo changes to a file.
Reads back the file being edited from disk
(or the most recent save file, if that isn't the same thing).
A numeric argument means ignore the Auto Save files.
If the option variable Less Asking is non-0, you will not be asked for
    confirmation.
A nonzero pre-comma argument also waives confirmation.,For checking if loaded or compressed in.kI Load-time setup.
This object file was compressed on 11:32pm  Thursday, 23 April 1981
by ECC on MC from the following source libraries:

   EMACS1; DSK: TMACS 424,	04/23/81 23:31:39
   EMACS1; DSK: TMUCS 17,	04/23/81 23:31:39QI Just like M.C.
Kept around so old libraries generated by IVORY still work.0C Compress a listing with form feeds.
Replaces some ^L's in buffer by 4 blank lines, in an attempt
to fill  all  pages.  Page length  is  an  optional  numeric
argument.-S Edit and then send a reply to current message.
With 1st arg of 1, continues editing an outgoing message.
With 1st arg of 2, sends a (non-reply) message - different
    initialization.
Uses its own buffer, *REPLY*, with Text and Auto Fill modes.
This must be put into $MM # RMAIL R$ to work.<C Summarize new mail and call RMAIL.
If there is no new mail, and the variable SRMAIL No New Mail Query
    Exit is non-0, asks whether to exit or read mail.
Any string argument is passed to RMAIL.
Summarizing happens only if there is no string argument, i.e. you're
    reading your mail in the normal way.wC Enters recursive ^R on links to nonexistant files
String argument is directory name (should end with semicolon).^R Underline words using backspaces.
Numeric argument is number of words to underline.
Canonicalizes the underlining if the option Canonicalize Underlines
    is non-0.  (Multics-style canonicalization.)
    If 0, it puts _<BS><letter> so that scopes don't show only the _.-^R Removes underlining from NUMARG words.kS Set so _ and BS are not breaks.
Pushes a ..N so definitions for _ and <BS> revert when caller exits.D^R Give pre- and post-comma arguments to a command.
Numeric argument becomes the pre-comma argument.
Any digits you type after this become post-comma arguments.  They are
    terminated by a non-digit, which is the ^R command called.  If
    there are no post-comma digits typed, there is only a pre-comma
    argument.
Example (assuming this is on M-, and meta-digits are autoarguments):
    Typing the following characters: M-1 2 3 M-, 4 5 6 M-X calls M-X
    with arguments of 123,456 so you get "123,456 M-X".
Leaves ..0 set to char after the post-comma argument.vType Mailing List
^R Select Buffer
Buffer Menu
Graph Buffer
^R Buffer Graph
^R Draw Vertical Line
=Abbrev
Send Mail
^R Auto Fill Comments
^^ TMACS Error Handler
^R Change Case Letter
& Set ..D
^R Get Macro Name
& Get 9-Bit Character Name
Lock File
Unlock File
& Buffer Dashes
Flush Variables
List unused ^R characters
^R Argument
^R Break Line
0
UnSAILify
& Kill Prefixed Variable Names
& Insert Prefixed Variable Names
^R Uppercase Last Word
^R Lowercase Last Word
^R Uppercase Last Initial
Uncontrolify
Abort Recursive Edit
Revert File
& SetUp TMACS Library
& Default Variable
Save Trees
# RMAIL R
SRMail
Nowhere Links
^R Really Underline Word
^R Remove Word Underline
& Temporarily _<BS> No Break
^R Comma-Arg
\+8+fq(+4)[2 0[3
< %3,-q2f2u3 q3&1@; q3"l 0' >
f[BBind q3-1*5,q3*5g2 q:..o(0)+q2